home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / HardwareProjects / SerialCable.lha / SerialCable / DumbTerminal.AMOS / DumbTerminal.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-02  |  705 b   |  36 lines
  1. ' Simple dumb terminal program.
  2. ' By Stephen Hughes. (ee0u4056@liverpool.ac.uk)
  3. '
  4. ' Please note, both computers must be turned on before this is run.
  5. '
  6. Screen Open 0,320,100,2,Lowres
  7. Cls 0 : Pen 1 : Paper 0
  8. Screen Open 1,320,100,2,Lowres
  9. Cls 0 : Pen 1 : Paper 0
  10. Screen Display 0,128,50,320,100
  11. Screen Display 1,128,150,320,100
  12. Serial Open 0,0
  13. Serial Speed 0,9600
  14. Serial Buf 0,4096
  15. Serial Bits 0,8,2
  16. Serial Parity 0,0
  17. Every 10 Proc RECEIVE
  18. Every On 
  19. Do 
  20.    C$=""
  21.    Repeat 
  22.       Repeat 
  23.          A$=Inkey$
  24.       Until A$<>""
  25.       Screen 0
  26.       Print A$;
  27.       C$=C$+A$
  28.    Until A$=Chr$(13)
  29.    Serial Send 0,C$
  30. Loop 
  31. Procedure RECEIVE
  32.    B$=Serial Input$(0)
  33.    Screen 1
  34.    Print B$;
  35.    Every On 
  36. End Proc